home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / yam_i_dodatki / yammailcheck / getmcfiles.rexx next >
OS/2 REXX Batch file  |  1997-03-22  |  818b  |  27 lines
  1.  
  2. /* Script to retrieve extra files required for MailCheck */
  3.  
  4. options results
  5.  
  6. if show('P','YAM')=0 then do
  7.   address command 'run <>nil: yam:yam nocheck'
  8.   i=0
  9.   do until show('P','YAM')>0 | i=3
  10.     address command 'sys:rexxc/WaitForPort YAM'
  11.     i=i+1
  12.   end 
  13.     if show('P','YAM')=0 then do
  14.     address command 'RequestChoice <>nil: "Error!" "Could not start YAM" "Hmm.."'
  15.     exit
  16.   end
  17. end
  18.  
  19. address command 'echo "open ftp.wustl.edu*nmime*nsize 512K*ncd pub/aminet/comm/misc/*nget CheckModem.lha*ncd ../../mus/play/*nget Play16_1.7.lha*ncd ../../util/cdity/*nget OkayDokey14.lha*nquit" >T:FTPMail.tmp' 
  20. address 'YAM'
  21. mailwrite
  22. writemailto '"ftpmail@sunsite.doc.ic.ac.uk"'
  23. writeletter 't:FTPMail.tmp'
  24. writequeue
  25. address command 'RequestChoice <>nil: "Request Complete" "Remember to send that mail..." "Okay"'
  26. exit
  27.